Option Explicit
Sub N_Sample014()
    Dim i As Long
    Dim t As Single
    t = Timer + 3
    For i = 1 To 10000
        If Timer > t Then Exit For
        Debug.Print i
    Next
    If i <= 10000 Then
      MsgBox "bwɶLkBzC"
    Else
      MsgBox "bwɶBzC"
    End If
End Sub
